(cancel-change-group): Add listp around pending-undo-list.

diff --git a/lisp/subr.el b/lisp/subr.el
index d7512a36ac2f4e02bea1cd7f3acf3ab2d7f17584..ac917a105502f655a27c5dd18816ad26523cbca5 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1684,7 +1684,7 @@ This finishes the change group by reverting all of its changes."
        (when (and (consp elt) (not (eq elt (last pending-undo-list))))
          (error "Undoing to some unrelated state"))
        ;; Undo it all.
-       (while pending-undo-list (undo-more 1))
+       (while (listp pending-undo-list) (undo-more 1))
        ;; Reset the modified cons cell ELT to its original content.
        (when (consp elt)
          (setcar elt old-car)